home *** CD-ROM | disk | FTP | other *** search
/ My Neighborhood / My Neighborhood.iso / mac / MacFiles / DefProj.Dxr / 00014.ls < prev    next >
Encoding:
Text File  |  1997-11-18  |  537 b   |  20 lines
  1. on exitFrame
  2.   global ghardDiskPath, gCDRDrive, prefName
  3.   set ghardDiskPath to the pathName
  4.   set prefFile to FileIO(mnew, "read", prefName)
  5.   if objectp(prefFile) then
  6.     put prefFile(mReadFile) into field "preferences"
  7.     prefFile(mdispose)
  8.     set whichChar to offset("Drive=", field "preferences")
  9.     if whichChar <> 0 then
  10.       put char whichChar + 6 of field "preferences" into field "cd drive"
  11.       testEntry()
  12.     else
  13.       go("drive")
  14.     end if
  15.   else
  16.     alert("Error reading file " & prefName)
  17.     quit()
  18.   end if
  19. end
  20.